YES 0.467
↳ HASKELL
↳ BR
((guard :: Bool -> [()]) :: Bool -> [()]) |
import qualified Maybe import qualified Prelude |
|||||||||
class Monad a => MonadPlus a where
|
|||||||||
instance MonadPlus Maybe where instance MonadPlus [] where
|
|||||||||
guard :: MonadPlus a => Bool -> a ()
|
import qualified Monad import qualified Prelude |
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
((guard :: Bool -> [()]) :: Bool -> [()]) |
import qualified Monad import qualified Prelude |
import qualified Maybe import qualified Prelude |
|||||||||
class Monad a => MonadPlus a where
|
|||||||||
instance MonadPlus Maybe where instance MonadPlus [] where
|
|||||||||
guard :: MonadPlus a => Bool -> a ()
|
undefined
| False
= undefined
undefined = undefined1
undefined0 True = undefined
undefined1 = undefined0 False
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
(guard :: Bool -> [()]) |
import qualified Maybe import qualified Prelude |
|||||||||
class Monad a => MonadPlus a where
|
|||||||||
instance MonadPlus Maybe where instance MonadPlus [] where
|
|||||||||
guard :: MonadPlus a => Bool -> a ()
|
import qualified Monad import qualified Prelude |